home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / Shareware City / Demos / TextPak Demo / Extras / GlassHighlights.k < prev    next >
Encoding:
Text File  |  1995-06-09  |  1.1 KB  |  53 lines  |  [TEXT/MPS ]
  1. --
  2. -- Class of generic highlights, plus specific objects
  3. --
  4. -- Dan Crow
  5. --
  6. -- 23/12/94
  7. --
  8. --
  9. --     © 1994, 1995 Art of Memory Ltd.
  10. --     All Rights Reserved
  11. --
  12. -- This file is supplied as part of the TextPak demonstration. You are only
  13. -- entitled to use this software to understand how the demonstration works.
  14. -- You may not duplicate, modify, reproduce or distribute this software in
  15. -- any form. If you wish to purchase a licence to use this software, please
  16. -- contact Art of Memory Ltd.
  17. --
  18. class genericGlassHighlight is SHAPE;
  19.  
  20. has
  21.     OffScreen()
  22.     do
  23.         self.show(false);
  24.         self.enable(false);
  25.     end;
  26.     
  27.     Blink(newX, newY, newWidth, newHeight)
  28.         newX      is? INTEGER;
  29.         newY      is? INTEGER;
  30.         newWidth  is? INTEGER;
  31.         newHeight is? INTEGER;
  32.         
  33.     do
  34.         self.X      := newX;
  35.         self.Y      := newY;
  36.         self.Width  := newWidth;
  37.         self.Height := newHeight;
  38.         
  39.         if self.myShape=RECTANGLE then
  40.             self.DrawOnRectangle();
  41.         else if self.myShape=CIRCLE then
  42.             self.DrawOnCircle();
  43.         end;
  44.     end;
  45.     
  46.     DrawOnRectangle()
  47.         external "DrawOnRectangle";
  48.     
  49.         
  50.     DrawOnCircle()
  51.         external "DrawOnCircle";
  52.     
  53. end;